00100	<****  FM INSTRUMENTS  ****
00200	ARRAY F8,F9,F10(512);  
00300	SEG(F1);0 0 1 12  1 88 0 100; < ENVELOPE
00400	SYNTH(F10);  1 1 999;  < SINE WAVE
00500	SEG(F8);0 0 1 100; < SLOPE UP
00550	SEG(F9); 1 0 0 100;
00600	
00700	COMPILE;  
00800	INSTRUMENT FM1;                       
00900	 OSCIL[10](P4,10*MAG/P2,P5);  
01000	INTRP(P6*P9*MAG,P7*P9*MAG,P8);
01100	 OSCIL(U2,MAG*P9,F10);  
01200	NOSCIL(U1,MAG*P3+U3,F10);
01300	 OUTA←OUTA+U4;  END;
01400	 INSTRUMENT FM2;
01500	OSCIL[10](P4,10*MAG/P2,P5);  
01600	INTRP(P6*P9*MAG,P7*P9*MAG,P8);
01700	 OSCIL(U2,MAG*P9,F10);  
01800	NOSCIL(U1,MAG*P3+U3,F10);
01900	 OUTA←OUTA+U4;  END;                                                        
02000	 INSTRUMENT FM3;
02100	OSCIL[10](P4,10*MAG/P2,P5);  
02200	INTRP(P6*P10*MAG,P7*P10*MAG,P8);
02300	 OSCIL(U2,MAG*P9,F10);  
02400	NOSCIL(U1,MAG*P3+U3,F10);
02500	 OUTA←OUTA+U4;  END;  
02600	FINISH;
02700	 PLAY;
02800	 FM3      0.000   .5000 C 1000 F1 0 5 F8 P3 1000;
02900	 FINISH;